home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Freaks Macintosh Archive
/
Freaks Macintosh Archive.bin
/
Freaks Macintosh Archives
/
Macintosh
/
ResEdit3.0.sit
/
ResEdit™ 3.0
/
ResEdit 3.0.rsrc
/
EDL_129_Resource.DITL
< prev
next >
Wrap
Text File
|
1997-01-27
|
1KB
|
79 lines
List(items, DITLEntry, ZeroBasedCount(16))
{
PadLong;
Word(top);
Word(left);
Word(bottom);
Word(right);
Bool(disabled, 1);
UBits(type, 7);
Label(_dataStart);
Switch(type)
{
case 1: // Help item
{
CalcBitsU((_dataEnd - _dataStart) / 8, 8);
UWord(helpType);
Switch(helpType)
{
case 1: // HMScanhdlg
case 2: // HMScanhrct
{
Word(id);
}
case 8: // HMScanAppendhdlg
{
Word(id);
Word(offset);
}
} // Switch(helpType)
} // case 1
case 4: // Button
case 5: // Check box
case 6: // Radio button
case 8: // Static text
case 16: // Edit text
{
PString(name);
}
case 7: // Control
{
CalcBitsU(2,8);
ResourceRef(id, 'CTRL');
}
case 32: // Icon
{
CalcBitsU(2,8);
ResourceRef(id, 'ICON');
}
case 64: // Picture
{
CalcBitsU(2,8);
ResourceRef(id, 'PICT');
}
case 0: // User item
{
CalcBitsU(0,8);
}
/* default:
{
CalcBitsU(Len(unknownItemData), 8);
Data(unknownItemData);
}
*/
} // Switch(type)
Label(_dataEnd);
Align(2);
} // items list